home *** CD-ROM | disk | FTP | other *** search
- 0 rem ------------------------
- 1 rem - ultra basic-demo -
- 2 rem ------------------------
- 3 :
- 4 graph:col0,0,15:clear:gracol15,0:fori=2to80step2.78
- 5 circle160,100,i:circle0,0,i:circle319,199,i:next:fori=0to6:brdscr:next
- 6 spacewt:clear:gracol7,0:fori=160to255step3
- 7 circle160,100,i:next
- 8 spacewt:clear:gracol1,0:fori=0to200
- 9 setrnd(0)*319,rnd(0)*199:next
- 10 x2=0:y2=47:forx=0to318:x1=x:y1=sin(x/319*4*(NULL))*47+47
- 11 setx1,y1:setx1+1,y1:setx1,y1+1:setx1+1,y1+1
- 12 setx1,199-y1:setx1+1,199-y1:setx1,198-y1:setx1+1,198-y1
- 13 next
- 14 fori=0to319:seti,0:seti,199:next:fori=0to199:set0,i:set319,i:next
- 15 spacewt:brdscr:invert:spacewt:invert:brdscr
- 16 clear:gracol13,5:col5,0,0:fori=255to0step-2:circle160,100,i:next
- 17 spacewt:brdscr:spacewt:clear:gracol7,2:col10,0,0:ii=.0428571429*3
- 18 fori=0to2*(NULL)stepii:circle160+70*sin(i),100+70*cos(i),20
- 19 circle160+70*sin(i),100+70*cos(i),10:next:spacewt
- 20 clear:col0,0,0:gracol3,6:fori=0to100:setrnd(0)*319,rnd(0)*199:next
- 21 fori=0to5:spacewt:invert:next:brdscr:brdscr
- 22 gracol7,0:clear:col0,0,0:forx=-80to80step3
- 23 y=20*sqr(1-x^2/80^2):circle160+x,100+y,11:circle160+x,100-y,11:next
- 24 fori=0to200:setrnd(0)*319,rnd(0)*199:next
- 25 spacewt:clear:gracol5,0:forii=10to1step-1
- 26 fori=2to60stepii:circle160,100,i:nexti,ii
- 27 spacewt:brdscr:clear:gracol15,0:x2=0:y2=97
- 28 forx=12to309step7:x1=x:y1=sin(x/319*4*(NULL))*60+97
- 29 fori=2to12step3:circlex1,y1,i:circlex1,199-y1,i:nexti,x
- 30 fori=0to319:seti,99:nexti
- 31 fori=0to319step16:forii=97to101:seti,ii:nextii,i
- 32 spacewt:gracol12,0:fori=0to35:next:gracol11,0:fori=0to35:next:gracol0,0
- 33 clear:gracol15,11:fori=0to50
- 34 circlernd(0)*319,rnd(0)*199,rnd(0)*70:next
- 35 spacewt:brdscr:gracol12,11:brdscr:gracol11,11:clear
- 36 gracol3,0
- 37 fori=2to255step2:circle160,100,abs(70-i):circle160,100,(70-i)and255:next
- 38 sys49152
- 39 :
- 40 rem --------------------------------
- 41 rem fragen? dann schreibt an:
- 42 rem christian fieres
- 43 rem vogelwaidstrasse 2
- 44 rem 6457 maintal 3
- 45 rem
- 46 rem tel. 06181/431629
- 47 rem --------------------------------
-